perm filename LINEN[MUS,LCS]4 blob sn#210647 filedate 1976-04-08 generic text, type T, neo UTF8
00100	VARIABLE X,Y;    <FILE NAME=LINEN
00200	COMPILE;
00300	INSTRUMENT TRY1;
00400	LINEN(P4,P6,P7,P8,P9,X);  <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
00500	COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
00600	OUTA=OUTA+U2;
00700	END;
00800	FINISH;
00900	ARRAY F3,F2(512);
01000	SEG(F2);0,0   1,8  .6 25 .7,50  0,75  0,100;
01025	SYNTH(F1);1 1 2 .3 999;
01037	SEG(F3);-1 1 1 100;
01050	X=0;
01100	
01200	COMPILE;
01300	INSTRUMENT TRY2;
01400	LINEN(P4,P6,P7,P8,P9,Y);  <AMP, RISE, DECAY, TOTAL, FUNC, VAR.
01500	COSCIL(U1,MAG*P3,P5); <YOU MUST USE A COSCIL HERE!
01600	OUTA=OUTA+U2;
01700	END;
01800	FINISH;
01900	PLAY;TRY1 0 .3 C 2000 F1 .05 .09 2.2 F2;
02000	TRY1 .3 .3 E;
02100	TRY1 .6 .3 G;  TRY1  .9 .3 FS; TRY1 1.2 1 A;
02200	TRY1 2.2 .3 DS 2000 F1 .05 .1 .3; X=0; FINISH;